Sub  ClearEnvVars()

現在のプロセスの環境変数をほぼすべて削除します。

(src)

[ 親: 環境変数 ]

→ T_Var.vbs # T_LoadEnvVars

テスト

VBScript から削除できない環境変数は残ります。

Function  OpenForEnvVarsFile( EnvVarsFilePath as string ) as EditEnvVarsFile

(src)

環境変数ファイルを編集します。

Property  .Path as string

.get_

Sub  SetVarInBatchFile( Path as string, Symbol as string, Value as variant )

バッチ・ファイルの中で、環境変数を設定している部分の値を変更します。

【引数】

Path

Symbol

バッチ・ファイルのパス

環境変数の名前

Value

環境変数の値

テスト

→ T_VarFile.vbs

T_SetVarInBatchFile

ソース

→ vbslib.vbs

Sub  Start_VBS_Lib_Settings()

Setting コマンド

を起動します。

→ vbslib.vbs

ソース

→ SettingTemplate.xml

    Dim  e  ' as Err2
    If TryStart(e) Then  On Error Resume Next
        ...
    If TryEnd Then  On Error GoTo 0
    If e.num = E_FileNotExist  Then ... : e.Clear
    If e.num <> 0 Then  e.Raise

→ メンバ変数 (Err2)

関連

→ Err2::BreakErrID

TryStart

TryStart

  Public  Number       ' Err.Number
  Public  num          ' Err.Number
  Public  Description  ' Err.Description (Error Message)
  Public  desc         ' Err.Description (Error Message)
  Public  Source       ' Err.Source
  Public  ErrID        ' count of (num <> 0) in each first Copy after Clear
  Public  RaiseID      ' count of (num <> 0) in Copy
  Public  BreakErrID   ' as integer
  Public  BreakRaiseID ' as integer

(src)

Property Get  Err2::Number() as integer

エラーコード。

Property Get  Err2::Description() as string

エラー・メッセージ。

Property Get  Err2::ErrStr() as string

XML形式のエラーメッセージ。

エラーメッセージの例：

Function  Err2::GetErrStr() as string

標準形式のエラーメッセージを返す。

(src)

エラーメッセージの例：

Property Get  Err2::DebugHint() as string

エラーの内容とデバッグのヒント。

サンプル：

Function  Err2::Value() as string

エラーの内容を文字列型で返します。

(src)

廃止されました

→ DebugHint (Err2)

Sub  Err2::Copy( err as Err )

err オブジェクトの内容をコピーします。

(src)

Sub  Err2::Raise()

同じ内容のエラーを再度発生させる。

(src)

Sub  Err2::OverRaise( e_num as integer, e_desc as string )

エラーの内容を変えて、再度エラーを発生させる。

(src)

サンプル

Sub  Err2::Clear()

エラーをクリアする。

エラー処理が終わったことを示すため、メンバ変数をリセットします。

Sub  Err2::CopyAndClear( out_e2 as Err2 )

エラーの情報を out_e2 にコピーしてから Err2 のエラーをクリアします。

→ エラーメッセージをチェックするテスト

参考

内部で Err2 オブジェクトが生成されて、out_e2 に格納されます。

テスト

→ T_Err2_Main.vbs # T_Err2_CopyAndClear

(src)

CopyAndClear した後でエラーが発生した場合、テストによるエラーであると判断して、
次のようなメッセージが表示されます。

Sub  Err2::EnqueueAndClear()

エラーの情報を Err2 の内部キューに入れてから Err2 のエラーをクリアします。

テスト

→ T_Err2_Main.vbs # T_Err2_EnqueueAndClear

サンプル

Function  Err2::DequeueAll() as string

Err2 の内部キューの内容を返し、内部キューを空にします。

テスト

→ T_Err2_Main.vbs # T_Err2_EnqueueAndClear

エラーがキューに入っていないときは、"" を返します。

参考

→ EnqueueAndClear (Err2)

(src)

Dim  Err2::ErrID  as integer

エラーの通し番号。

エラーが発生して初めての TryEnd を通ったとき +1 されます。
Err2::Clear した後で、次のエラーが発生すると +1 されます。

→ Err2::BreakErrID

関連

Dim  Err2::RaiseID  as integer

エラーの通し番号。

エラーが発生して TryEnd を通るたびに +1 されます。
Err2::Clear で 0 に戻ります。

Dim  Err2::BreakErrID  as integer

デバッガでブレークするエラーの通し番号。

エラーメッセージの前に g_debug を設定するように表示されます。 このメッセージに従って、
デバッガを起動すると、エラーが発生した場所でブレークします。

Dim E_Others            : E_Others            = 1

Dim E_TestPass          : E_TestPass          = 21
Dim E_TestSkip          : E_TestSkip          = 22
Dim E_TestFail          : E_TestFail          = 23

Dim E_BuildFail         : E_BuildFail         = &h80041004
Dim E_OutOfWritable     : E_OutOfWritable     = &h80041005
Dim E_NotFoundSymbol    : E_NotFoundSymbol    = &h80041006
Dim E_ProgRetNotZero    : E_ProgRetNotZero    = &h80041007
Dim E_Unexpected        : E_Unexpected        = &h80041008
Dim E_TimeOut           : E_TimeOut           = &h80041009

Dim E_WIN32_FILE_NOT_FOUND: E_WIN32_FILE_NOT_FOUND = &h80070002
Dim E_WIN32_DIRECTORY     : E_WIN32_DIRECTORY      = &h8007010B

Dim E_ProgTerminated    : E_ProgTerminated    = &hC0000005

Dim E_BadType           : E_BadType           = 13
Dim E_FileNotExist      : E_FileNotExist      = 53
Dim E_EndOfFile         : E_EndOfFile         = 62
Dim E_WriteAccessDenied : E_WriteAccessDenied = 70
Dim E_ReadAccessDenied  : E_ReadAccessDenied  = 70
Dim E_PathNotFound      : E_PathNotFound      = 76
Dim E_AlreadyExist      : E_AlreadyExist      = 58

(src)

関連

→ エラーメッセージ (VBS)

→ Windows エラーコード

<ERROR msg="Script finished before Err2.Clear or Raise the error"
jp="エラー処理の途中で終了しました。Err2.Clear または再 Raise してください"
err_symbol="E_NotClear" />

エラーメッセージ：

処理フロー

VBScript global code (メインvbs の vbslib include)

ResumePop

CallFinalizeInModules

(= g_FinalizeModules(i))

FinalizeModule (vbslib.vbs)

Err2.OnSuccessFinish

echo  GetErrStr( num, Description )

0

<ERROR msg="Out of Diff"
src=
 "C:\folder\file1.txt"
dst=
 "C:\folder"
/>

<ERROR

ログを検索する時は、"<ERROR " で検索すると、すぐに見つかります。
エラーが発生したときは、"<WARNING " で検索すると問題を解決するヒント
が得られるかもしれません。

msg

自然言語のエラーメッセージ

src, dst など

値がパスのときは、タグジャンプができるように新しい行から値を書く。

→ GetErrStr

関連

XML を使って、エラー情報を構造化します。
もしエラー情報の一部を取得したいときは、エラーメッセージ（Err2.Description） を

LoadXML

に渡してください。 参考

→ Err2 オブジェクト